moeda<-c("cara","coroa")
moedaamostra<-sample(moeda,size=1000,replace=TRUE)
contagem<-table(moedaamostra)
moedaamostra2<-sample(moeda,size=50,replace=TRUE)
contagem2<-table(moedaamostra2)
moedaamostra3<-sample(moeda,size=100000,replace=TRUE)
contagem3<-table(moedaamostra3)
x<-as.data.frame(contagem)
porcentagem<-c((x[1,2]/1000)*100,(x[2,2]/1000)*100)
y<-as.data.frame(contagem2)
porcentagem2<-c((y[1,2]/50)*100,(y[2,2]/50)*100)
z<-as.data.frame(contagem3)
porcentagem3<-c((z[1,2]/100000)*100,(z[2,2]/100000)*100)
porisso<-100000